home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / xamp.bas < prev    next >
BASIC Source File  |  1990-10-14  |  3KB  |  73 lines
  1. 10    CLEARW 2:FULLW 2:REM CLEAR SCREEN COMMAND
  2. 20    REM APRIL 1986
  3. 30    REM TRANSISTOR AMP CALCULATOR
  4. 40    REM BY JACK CUNKELMAN
  5. 50    GOSUB 900
  6. 60    INPUT"SUPPLY VOLTAGE ";V
  7. 70    PRINT"THE DROP ACROSS THE COLLECTOR RESISTOR =";V/2;" VOLTS"
  8. 80    INPUT"INPUT IMPEDANCE OF THE FOLLOWING STAGE (OHMS)";Z
  9. 90    RC=Z/10
  10. 100   PRINT"COLLECTOR RESISTOR, RC SHOULD BE ";RC;" OHMS
  11. 105   INPUT"THE CLOSEST 5% RESISTOR VALUE TO THIS IS ";RC
  12. 110   IC= (.5*V)/RC
  13. 120   PRINT"THE COLLECTOR CURRENT IS";IC*1000;" MA"
  14. 130   INPUT"DESIRED VOLTAGE GAIN ";G
  15. 140   RE=RC/G:R$=CHR$(32)
  16. 150   PRINT"THE EMITTER RESISTOR FOR THIS GAIN IS ";RE;" OHMS"
  17. 160   IF RE <= 39 OR RE >= 1001 THEN 170 ELSE 180
  18. 170   R$=CHR$(42)
  19. 180   INPUT"GERMANIUM (G) OR SILICONE (S) TRANSISTOR TYPE ";T$
  20. 190   IF T$="G" THEN 210
  21. 200   IF T$="S" THEN 220 ELSE 180
  22. 210   J=.2:GOTO 230
  23. 220   J=.6
  24. 230   VE=IC*RE
  25. 240   PRINT"THE DROP ACROSS THE EMITTER RESISTOR IS ";VE;" VOLTS"
  26. 250   VB=BE+J
  27. 260   PRINT"THE BASE VOLTAGE MUST BE ";VB;" VOLTS"
  28. 270   INPUT"WHAT IS THE DESIRED INPUT IMPEDANCE FOR THIS STAGE ";IZ
  29. 280   RE=IZ*RE*100/((RE*100)-IZ)
  30. 290   PRINT"THE BIAS RESISTOR, R2 IS ";R2;" OHMS"
  31. 300   INPUT" THE CLOSEST 5% RESISTOR VALUE TO THIS IS ";R2
  32. 310   VD=V-VB:I2= VB/R2
  33. 320   IB=IC/B
  34. 330   R1=(V-VB)/(IB+I2)
  35. 340   PRINT"THE BIAS RESISTOR, R1 IS ";R1;" OHMS"
  36. 350   INPUT"THE CLOSEST 5% RESISTOR VALUE TO THIS IS ";R1
  37. 360   PRINT"CALCULATION OF THE INPUT AND OUTPUT CAPACITOR VALUES"
  38. 370   INPUT"LOWEST FREQUENCY THIS AMP SHOULD PASS ";F
  39. 380   C1=1/(3.2*F*IZ)
  40. 390   C1=C1*1E+6
  41. 400   C2=1/(3.2*20*Z)
  42. 405   C2=C2*1E+6
  43. 410   IE=VE/RE:RJ=.03/IE
  44. 420   A=RC/RJ
  45. 430   C3=1/(6.2*F*RJ)
  46. 440   C3=C3*1E+6
  47. 500   REM CLEAR SCREEN
  48. 505   CLEARW 2:FULLW 2
  49. 510   PRINT"PARAMETERS FOR A COMMON EMITTER AMP STAGE"
  50. 520   PRINT
  51. 530   PRINT"SUPPLY VOLTAGE                ";V;" VOLTS"
  52. 540   PRINT"COLLECTOR RESISTOR (RC)       ";RC;" OHMS"
  53. 550   PRINT"EMITTER RESISTOR (RE)         ";RE;" OHMS"
  54. 560   PRINT"BIAS RESISTOR (R1)            ";R1;" OHMS" 
  55. 570   PRINT"BIAS RESISTOR (R2)            ";R2;" OHMS"
  56. 580   PRINT"INPUT CAPACITOR (C1)          ";C1;" MF"
  57. 590   PRINT"OUTPUT CAPACITOR (C2)         ";C2;" MF"
  58. 600   PRINT"VOLTAGE GAIN                  ";G
  59. 610   PRINT"TRANSISTOR BETA               ";B
  60. 620   PRINT"LOW FREQUENCY LIMIT           ";F;" HZ"
  61. 630   PRINT"EMITTER BYPASS =              ";CE;" MF FOR GAIN OF     ";A
  62. 700   INPUT"RUN AGAIN Y IS YES AND N IS NO";R$
  63. 710   IF LEFT$(R$,1)="Y" THEN 10
  64. 720   IF LEFT$(R$,1)="N" THEN END ELSE 700
  65. 900   PRINT"CALCULATIONS FOR A COMMON EMITTER AMPLIFER STAGE"
  66. 910   PRINT
  67. 1000  INPUT"TRANSISTOR BETA IF KNOWN (0 IF NOT)";B  
  68. 1010  IF B=0 THEN B=100
  69. 1020  RETURN
  70. 2000  REM FROM RADIO ELECTRONICS AUG '87 PAGE56
  71. 2010  REM COPYRIGHT 1987 BY GERNSBACK PUBLICATION. POSTED WITH
  72. 2020  REM PERMISSION.
  73. ..................................................................................